Option Explicit
Sub D_Sample048()
    Dim myWd As Window
    Set myWd = ActiveWindow
    myWd.NewWindow
    Set myWd = Nothing						'
End Sub

